home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / ditroff / RCS / tmac.sdoft,v < prev    next >
Encoding:
Text File  |  1988-12-21  |  14.1 KB  |  907 lines
  1. head     1.2;
  2. branch   ;
  3. access   ;
  4. symbols  ;
  5. locks    ; strict;
  6. comment  @@;
  7.  
  8.  
  9. 1.2
  10. date     88.12.21.08.35.45;  author ouster;  state Exp;
  11. branches ;
  12. next     1.1;
  13.  
  14. 1.1
  15. date     88.12.18.13.55.10;  author ouster;  state Exp;
  16. branches ;
  17. next     ;
  18.  
  19.  
  20. desc
  21. @@
  22.  
  23.  
  24. 1.2
  25. log
  26. @Switch to Sprite library location.
  27. @
  28. text
  29. @.\"    From mel Sat Sep 16 14:46:23 1978
  30. .\"    the GF macro places figures.
  31. .\"    G8 is zero until the figure is placed
  32. .\"    G5 is non-zero if there was an argument
  33. .\"     on GB which specifies
  34. .\"      1 - top
  35. .\"      2 - bottom
  36. .\"      3 - next page
  37. .\"      4 - at this point
  38. .\"    the macros HN - top next page
  39. .\"    HT - top this page
  40. .\"    HB - bottom this page
  41. .\"    HH : here on this page
  42. .\"    The current algorithm is: if it does not fit,
  43. .\"    top next page; otherwise if no arg to GB
  44. .\"    put it at top or bottom of this page, whichever
  45. .\"    is closer (there is a threshold of half the figure
  46. .\"    size or something)
  47. .\"    if arg to GB is given it governs.
  48. .\"
  49. .de Vx    \" volume, number, Month, year, page 1, page n, top title(s) in one blast (bwk)
  50. .\" also needs DY for date received as 31 July 1978
  51. .ds VN \\$1
  52. .ds NU \\$2
  53. .ds mo \\$3
  54. .if "\\$3"January" .ds MO JANUARY
  55. .if "\\$3"February" .ds MO FEBRUARY
  56. .if "\\$3"March" .ds MO MARCH
  57. .if "\\$3"April" .ds MO APRIL
  58. .if "\\$3"May" .ds MO MAY
  59. .if "\\$3"June" .ds MO JUNE
  60. .if "\\$3"July" .ds MO JULY
  61. .if "\\$3"August" .ds MO AUGUST
  62. .if "\\$3"September" .ds MO SEPTEMBER
  63. .if "\\$3"October" .ds MO OCTOBER
  64. .if "\\$3"November" .ds MO NOVEMBER
  65. .if "\\$3"December" .ds MO DECEMBER
  66. .nr yr \\$4
  67. .nr P \\$5-1
  68. .nr P< \\$5
  69. .pn \\$5
  70. .nr P> \\$6
  71. .ds Tl \\$7
  72. .ds Tr \\$8
  73. ..
  74. .de PS    \" start picture (bwk)
  75. .    \" $1 is height, $2 is width in units
  76. .if t .SP .3
  77. .in (\\n(.lu-\\$2u)/2u
  78. .ne \\$1u
  79. ..
  80. .de PE    \" end of picture
  81. .in
  82. .if t .SP .6
  83. ..
  84. .di XX
  85. .nr Q1 0
  86. .rn ne NE
  87. .de ne
  88. .nr NB \\$1v
  89. .if \\n(.t<\\n(NB \{\
  90. .dt \\n(.du+4u \\*(DT
  91. .sp\}
  92. ..
  93. .ds Co \s12\v'.2m'\(co\v'-.2m'\s0 19\\n(yr by John Wiley & Sons, Ltd.
  94. .de CO
  95. .ps 8
  96. .vs 9p
  97. .nf
  98. SOFTWARE\(emPRACTICE AND EXPERIENCE, VOL. \\*(VN, \\n(P<-\\n(P> (19\\n(yr)
  99. .fi
  100. .ft 1
  101. .lt \\n(LLu
  102. .ps \\n(PS
  103. .vs \\n(VSp
  104. ..
  105. .nr BS 1
  106. .de IZ
  107. .if \\n(PS=0 .nr PS 10
  108. .if \\n(VS=0 .nr VS 12
  109. .if \\n(PL=0 .nr PL 10.25i
  110. .if \\n(LP=0 .nr LP 8i
  111. .if \\n(LL=0 .nr LL 5.6i
  112. .if \\n(LS=0 .nr LS 0.9v
  113. .if \\n(JS=0 .nr JS 0.5v
  114. .nr ZI 0.3i
  115. .nr ZJ 0.3i
  116. .ps \\n(PS
  117. .vs \\n(VSp
  118. .pl \\n(PLu
  119. .ll \\n(LLu
  120. .nr L4 \\n(LPu-\\n(LSu
  121. .dt \\n(L4u EP
  122. .ds DT EP
  123. .em EM
  124. ..
  125. .de TL
  126. .IZ
  127. .rm IZ
  128. .CO
  129. .SP .5i
  130. .ps 16
  131. .ft 1
  132. .vs 30p
  133. .br
  134. .if \\n(.d=0 .nr TP 1
  135. .if \\n(.t<4v .nr TO 1
  136. .di TX
  137. .nr FR 0
  138. .nr IT 1
  139. .na
  140. .ll \\n(LLu-.5i
  141. ..
  142. .de ET
  143. .br
  144. .di
  145. .dt \\n(L4u \\*(DT
  146. .ad
  147. .ll \\n(LLu
  148. .ce 100
  149. .nf
  150. .TX
  151. .rm TX
  152. .fi
  153. .nr IT 0
  154. ..
  155. .de AU
  156. .if \\n(IT>0 .ET
  157. .ft 1
  158. .br
  159. .sp .6
  160. .ps 8
  161. .vs \\n(VSp
  162. .ce 100
  163. ..
  164. .de AI
  165. .sp 3p
  166. .ps 8
  167. .ft 2
  168. .ce 100
  169. ..
  170. .de RD
  171. .ps -1
  172. .ce
  173. .if \\n(.n>\\n(.l .tm Too many authors on a line
  174. ..
  175. .de AB
  176. .ce 0
  177. .nr AB 1
  178. .ft 3
  179. .ce
  180. .SP .2i
  181. SUMMARY
  182. .ps \\n(PS
  183. .vs \\n(VSp
  184. .SP .5v
  185. ..
  186. .de AE
  187. .ft 1
  188. .nr AB 0
  189. .nr FR 0
  190. .nr HI 1
  191. .SP .8v
  192. ..
  193. .de OK
  194. .br
  195. .ft 1
  196. .ps 6
  197. KEY WORDS  \c
  198. .ps 7
  199. ..
  200. .de PP
  201. .RT
  202. .if \\n(.i>0 .SP \\n(JSu
  203. .in 0
  204. .if \\n(FR=0 .ps \\n(PS
  205. .ti +2n
  206. .if \\n(AB=0 .ft 1
  207. .nr FR 1
  208. ..
  209. .de LP
  210. .RT
  211. .if \\n(.i>0 .SP \\n(JSu
  212. .in 0
  213. .if \\n(FR=0 .ps \\n(PS
  214. .nr FR 1
  215. .if \\n(AB=0 .ft 1
  216. ..
  217. .de IP
  218. .ce 0
  219. .if \\n(FR=0 .ps \\n(PS
  220. .nr FR 1
  221. .if \\n(.i=0 .SP .5v
  222. .in \\n(ZJu
  223. .ti -\\n(ZIu
  224. \\$1\h'|\\n(ZIu'\c
  225. ..
  226. .de JP
  227. .ce 0
  228. .\".if \\n(.d>0 .if \\n(.d<1.5v .if \\n(HI=0 .tm Top widow page \\n% (JP)
  229. .if \\n(FR=0 .ps \\n(PS
  230. .nr FR 1
  231. .if \\n(.i=0 .SP \\n(JSu
  232. .in \\n(ZJu
  233. .ti -.4i
  234. .if \\n(.f=1 \h'0.3i-\w"(\f2\\$1\|\fP)"u'(\f2\\$1\|\fP)\h'|.4i'\c
  235. .if \\n(.f=2 \h'0.3i-\w"(\f2\\$1\^\fP)"u'(\f2\\$1\^\fP)\h'|.4i'\c
  236. ..
  237. .de SH
  238. .nr HQ \\n(HI
  239. .RT
  240. .in 0
  241. .nr HI \\n(HQ
  242. .ne 2v+\\n(.Vu
  243. .ft 3
  244. .if \\n(HI=0 .if \\n(.d>0 .SP 1.25v
  245. .if \\n(HI>0 .if \\n(.d>0 .if \\n(FR>0 .sp 1
  246. .nr FR 1
  247. .nr HI 1
  248. ..
  249. .de EP
  250. .di
  251. .nr L1 \\n(dn
  252. .ev 1
  253. .ce 0
  254. .ll \\n(LLu
  255. .br
  256. .rs
  257. .sp .75i-1v
  258. .if \\n(TP=0 .PT
  259. .if \\n(TP>0 .sp
  260. .nr TO 0
  261. .sp 1
  262. .nr P1 \\n(LP-\\n(L1
  263. .nf
  264. .nr P1 -\\n(G1
  265. .nr P1 -\\n(G2
  266. .if \\n(P1<0 .nr Q1 0
  267. .if \\n(EX=1 .nr Q1 0  \" don't pad on last page of article
  268. .nr P3 \\n(P1
  269. .if \\n(G1>0 .GT
  270. .if \\n(G1>0 .if \\n(EX=0 .sp \\n(P1u
  271. .if \\n(G1>0 .if \\n(EX=0 .nr P1 0
  272. .rm GT
  273. .if \\n(G1>0 .nr Q1 0 \" if top figure, pad below
  274. .if \\n(G2>0 .nr Q1 0 \" if bottom figure pad above
  275. .if \\nB .tm Page \\n%: pad \\n(P3 space \\n(Q1 places, top \\n(G1, bot \\n(G2
  276. .XX
  277. .nf
  278. .if \\n(G2>0 .if \\n(P1>0 .sp \\n(P1u
  279. .if \\n(G2>0 .nr P1 0
  280. .if \\n(G2>0 .GB
  281. .nr G1 0
  282. .nr G2 0
  283. .if \\n(EX>0 .if \\n(P1>0 .sp \\n(P1u
  284. .if \\nB .tm Bottom of page \\n% at \\n(nl
  285. .rm GB
  286. .PF
  287. .bp
  288. .nr TQ \\n(TP
  289. .nr TP 0
  290. .nr G1 \\n(G3
  291. .rn GN GT
  292. .nr G3 0
  293. .ev 
  294. .nr FP 0
  295. .nr Q1 0
  296. .nr L4 \\n(LPu-\\n(LSu
  297. .if \\n(G1>(\\n(L4-1i) .FB \" full page figure
  298. .nr L4 -\\n(G1
  299. .nr LX \\n%
  300. .af LX 1
  301. .ie \\n(LX<=26 .af LX a
  302. .el \{.nr LX -26
  303. .af LX A\}
  304. .nr L4 -\\n(C\\n(LXu
  305. .di XX
  306. .dt \\n(L4u EP
  307. .ds DT EP
  308. ..
  309. .de FB
  310. .if \\nB .tm Full page figure on page \\n%
  311. .ev 1
  312. .rs
  313. .sp .75i-1v
  314. .PT
  315. .rs
  316. .GT
  317. .rm GT
  318. .nr G1 0
  319. .PF
  320. .bp
  321. .ev
  322. ..
  323. .de CP \" cut text on page arg1 by arg2 
  324. .nr C2 \\$2v
  325. .nr C1 \\$1
  326. .af C1 1
  327. .if \\n(C1>52 .tm Page>52, gok what happens.
  328. .ie \\n(C1<=26 .af C1 a
  329. .el \{.nr C1 -26
  330. .af C1 A\}
  331. .if \\n(C2>0 .nr C\\n(C1 \\n(C2
  332. ..
  333. .de SP
  334. .if \\n(.t<\\$1 .\\*(DT
  335. .if \\n(.d>0 .ST \\$1
  336. ..
  337. .de ST
  338. .sp \\$1
  339. .nr Q1 +1
  340. \!.FI
  341. ..
  342. .de FI
  343. .nr P4 0
  344. .if \\n(Q1>0 .nr P4 3*((\\n(P1/3)/\\n(Q1)
  345. .sp \\n(P4u
  346. .if \\n(P4>1v .tm Padding of \\n(P4u exceeds one space page \\n%
  347. .nr P1 -\\n(P4
  348. .nr Q1 -1
  349. ..
  350. .de CL \" change length: add/sub lines this page
  351. .nr CN \\$1v
  352. .nr L4 \\n(L4+\\n(CN
  353. .dt \\n(L4u EP
  354. ..
  355. .de GB
  356. .    \"argument positions: 1 top here, 2 bottom here, 3 next page, 4 right here
  357. .if \\n(.$>0 .if \\$1=4 .br
  358. .ev 1
  359. .di GD
  360. .ll \\n(LLu
  361. .if \n(KK=0 .ps \\n(PS-2
  362. .if \n(KK=0 .vs \\n(VSp-4p
  363. .nr G5 0
  364. .if \\n(.$>0 .nr G5 \\$1
  365. .fi
  366. ..
  367. .de GF
  368. .br
  369. .di
  370. .nf
  371. .nr G0 \\n(dn
  372. .nr G0 +1v
  373. .nr G8 0  \" not placed
  374. .if \\n(KG=0 .if \\n(G8=0 .if \\n(G0>\\n(.t .HN
  375. .if \\n(G8=0 .if \\n(G5=0 .if \\n(G0>2*\\n(.d .if \\n(G1=0 .HT
  376. .if \\n(G8=0 .if \\n(G5=0 .if 3*\\n(G0>2*\\n(.t .if \\n(G2=0 .HB
  377. .if \\n(G8=0 .if \\n(G5=0 .HH
  378. .if \\n(G8=0 .if \\n(G5=1 .HT
  379. .if \\n(G8=0 .if \\n(G5=2 .HB
  380. .if \\n(G8=0 .if \\n(G5=3 .HN
  381. .if \\n(G8=0 .if \\n(G5=4 .HH
  382. .rm GD
  383. .ps \\n(PS
  384. .vs \\n(VSp
  385. .ev
  386. ..
  387. .de FS
  388. .GB 2
  389. .br
  390. .if \\n(FP=0 \{\
  391. .vs 2p
  392. .br
  393. \l'.75i'
  394. .vs
  395. .sp 2p
  396. .nr FP 1
  397. .br\}
  398. ..
  399. .de FE
  400. .GF
  401. ..
  402. .de KS
  403. .if \\n(KK=0 .GB 4
  404. .nr KK 1
  405. .nr KG 1
  406. ..
  407. .de KE
  408. .if \\n(KK>0 .GF
  409. .nr KK 0
  410. .nr KG 0 \" KG on if not a floating display
  411. ..
  412. .de HN
  413. .if \\n(G3>0 .tm Two figures pushed to next page.
  414. .da GN
  415. .GD
  416. .sp 1
  417. .di
  418. .nr G3 \\n(dn
  419. .nr G8 1
  420. ..
  421. .de HT
  422. .nr L4 -\\n(G0
  423. .dt \\n(L4u \\*(DT
  424. .da GT
  425. .GD
  426. .sp
  427. .di
  428. .nr G1 +\\n(dn
  429. .nr G8 1
  430. ..
  431. .de HB
  432. .da GB
  433. .if \\n(FP=0 .sp
  434. .GD
  435. .di
  436. .nr G2 +\\n(dn
  437. .nr G8 1
  438. .nr L4 -\\n(dn
  439. .dt \\n(L4u \\*(DT
  440. ..
  441. .de HH
  442. .SP .5v
  443. .if \\n(G0>\\n(.t .if \\n(KK>0 .sp 10i
  444. .GD
  445. .SP .5v
  446. .nr G8 1
  447. ..
  448. .de RR
  449. .ce 0
  450. .if \\n(FR=0 .ps \\n(PS
  451. .nr FR 1
  452. .ft 1
  453. .in .3i
  454. .if \\n(.$ .ti -.3i
  455. .if \\n(.$ \\$1\ \ \c
  456. ..
  457. .de RF
  458. .SP 2v
  459. .ps \\n(PS-2
  460. .vs \\n(VS-3
  461. .ne 3v
  462. .ce
  463. .ps -1
  464. REFERENCES
  465. .sp 3p
  466. ..
  467. .de PT
  468. .if \\n(PF>0 .af % 1
  469. .if \\n(Pf>0 .if o .tl ""\s7\\*(Tr\s0"\s10\\n%"
  470. .if \\n(Pf>0 .if e .tl "\s10\\n%"\s7\\*(Tl\s0""
  471. ..
  472. .de PF
  473. .sp 1v
  474. .lt \\n(.lu
  475. .nr Ss \\n(.s
  476. .nr Sf \\n(.f
  477. .ps 9
  478. .nr yr \\n(yr%1900
  479. .af NU 01
  480. .af VN 01
  481. .af P< 0001
  482. .nr VN \\*(VN
  483. .nr NU \\*(NU
  484. .\" price = 1.00 if <= 10 pages, otherwise .10/page.
  485. .nr p1 (1+\\n(P>-\\n(P<)*10
  486. .if \\n(p1<100 .nr p1 100
  487. .nr p2 \\n(p1%100
  488. .nr p1 \\n(p1/100
  489. .ds pr \\n(p1.\\n(p2
  490. .if \\n(Pf=0 .tl "\s90038-0644/\\n(yr/\\n(NU\\n(VN-\\n(P<$0\\*(pr""\f2Received \\*(DY\f1\s0"
  491. .if \\n(Pf=0 \s9\\*(Co\s0
  492. .af % 1
  493. .nr Pf \\n(Pf+1
  494. .ft \\n(Sf
  495. .ps \\n(Ss
  496. ..
  497. .de EQ  \"equation, breakout and display
  498. .nr EF \\n(.u
  499. .ds EE \\h'.5i'    \" default for indent is .5 inch
  500. .nr LE 1    \" 1 is center, 0 is I or L
  501. .ds EL \\$1
  502. .if "\\$1"L" .ds EL \\$2
  503. .if "\\$1"L" .nr LE 0
  504. .if "\\$1"C" .ds EL \\$2
  505. .if "\\$1"I" .nr LE 0
  506. .if "\\$1"I" .ds EE \\h'.5i'
  507. .if "\\$1"I" .if !"\\$3"" .ds EE \\h'\\$3'
  508. .if "\\$1"I" .ds EL \\$2
  509. .ev 1
  510. .di EZ
  511. ..
  512. .\"        -----------------------------
  513. .de EN  \" end of a displayed equation
  514. .if !"\\n(.z"EZ" .tm EN not preceded by EQ, disaster follows.
  515. .br
  516. .ce 0
  517. .di
  518. .rm EZ
  519. .ev
  520. .nr ZN 1
  521. .if "\\*(10"" .nr ZN 0
  522. .if \\n(ZN=0 .if !"\\*(EL"" .nr ZN 1
  523. .lt \\n(.lu
  524. .br
  525. .if \\n(ZN>0 .if !\\n(.d=\\n(PE .SP 0.5
  526. .pc
  527. .if \\n(BD>0 .nr LE 0 \" can't mean centering in this case.
  528. .if \\n(ZN>0 .if \\n(LE>0 .tl \(ts\(ts\\*(10\(ts\\*(EL\(ts
  529. .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD=0 .tl \(ts\\*(EE\\*(10\(ts\(ts\\*(EL\(ts
  530. .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 \!\\*(10\\\\t\\*(EL
  531. .if \\n(ZN>0 .if \\n(LE=0 .if \\n(BD>0 .if \\n(BD<\\w'\\*(10' .nr BD \\w'\\*(10'
  532. .lt \\n(LLu
  533. .pc %
  534. .br
  535. .if \\n(ZN>0 .if \\n(EF>0 .fi
  536. .rm EL
  537. .if \\n(ZN>0 .SP 0.5
  538. .nr PE \\n(.d
  539. .rm 10
  540. ..
  541. .de B
  542. .if \\n(.$>0 \\$3\f3\\$1\fP\\$2
  543. .if \\n(.$=0 .ft 3
  544. ..
  545. .de I
  546. .if \\n(.$>0 \\$3\f2\\$1\fP\^\\$2
  547. .if \\n(.$=0 .ft 2
  548. ..
  549. .de R
  550. .ft 1
  551. ..
  552. .de EM
  553. .br
  554. .nr EX 1
  555. .wh -1p .CM
  556. .sp 100
  557. ..
  558. .de TS
  559. .nf
  560. .sp .5v
  561. ..
  562. .de TE
  563. .fi
  564. .sp .5v
  565. ..
  566. .de CM
  567. .po 0
  568. .tl '\(ru'''
  569. .po
  570. ..
  571. .wh 0 CM
  572. .de RT
  573. .br
  574. .\".if \\n(.d>0 .if \\n(.d<1.5v .if \\n(HI=0 .tm Top widow page \\n%
  575. .IZ
  576. .rm IZ
  577. .if "\\n(.z"PA" .tm Warning: are you missing a .P2?
  578. .if \\n(IT>0 .ET
  579. .ps \\n(PS
  580. .vs \\n(VSp
  581. .if \\n(HI .sp .5v
  582. .if \\n(HI .if \\n(.d<=1.5v .if \\n(G1=0 .sp .5v
  583. .nr HI 0
  584. .ce 0
  585. ..
  586. .   \"ACCENTS  say \*'e or \*`e to get e acute or e grave
  587. .ds ' \h'\w'e'u*4/10'\z\(aa\h'-\w'e'u*4/10'
  588. .ds ` \h'\w'e'u*4/10'\z\(ga\h'-\w'e'u*4/10'
  589. .   \"UMLAUT  \*:u, etc.
  590. .ds : \v'-0.6m'\h'(1u-(\\n(.fu%2u))*0.13m+0.06m'\z.\h'0.2m'\z.\h'-((1u-(\\n(.fu%2u))*0.13m+0.26m)'\v'0.6m'
  591. .  \"TILDE and CIRCUMFLEX
  592. .ds ^ \\k:\h'-\\n(.fu+1u/2u*2u+\\n(.fu-1u*0.13m+0.06m'\z^\h'|\\n:u'
  593. .ds ~ \\k:\h'-\\n(.fu+1u/2u*2u+\\n(.fu-1u*0.13m+0.06m'\z~\h'|\\n:u'
  594. .    \"dotted arrow
  595. .ds > \v'-.1m'\s-4---\z-\v'.1m'\h'-.3m'\z>\s+4
  596. .        \"czech symbol as in kucera & francis
  597. .ds C \h'.1m'\v'-0.6m'\s6\zv\s0\v'0.6m'\h'-.1m'
  598. ..
  599. .    \"NH - numbered heading
  600. .de NH
  601. .nr HQ \\n(HI
  602. .RT
  603. .nr HI \\n(HQ
  604. .ne 2v+\\n(.Vu
  605. .ft 1
  606. .if \\n(Nh=0 .SP 1.2v
  607. .nr Nh \\n(Nh+1
  608. .if \\n(HI=0 .if \\n(.d>0 .SP 1.5v
  609. .if \\n(HI>0 .if \\n(.d>0 .if \\n(FR>0 .sp 1
  610. .nr FR 1
  611. .nr HI 1
  612. .ce 100
  613. \\n(Nh.  \c
  614. ..
  615. .de IH
  616. .nr H4 +1
  617. .ft 2
  618. \\n(H1.\\n(H2.\\n(H3.\\n(H4 \\$1
  619. .ft 1
  620. ..
  621. .de UX
  622. .ie \\n(GA>0 \\$2\s-2UNIX\s0\\$1
  623. .el \{\
  624. .if n \\$2UNIX\(dg\\$1
  625. .if t \\$2\s-2UNIX\s0\(dg\\$1
  626. .FS
  627. \(dg \s-2UNIX\s0 is a trademark of Bell Laboratories.
  628. .FE
  629. .nr GA 1\}
  630. ..
  631. .de Ux \" cap-small cap, not used
  632. .\" .ie \\n(GA>0 \\$2U\s-2NIX\s0\\$1
  633. .ie \\n(GA>0 \\$2\s-2UNIX\s0\\$1
  634. .el \{\
  635. .if n \\$2UNIX*\\$1
  636. .\".if t \\$2U\s-2NIX\s0*\\$1
  637. .if t \\$2\s-2UNIX\s0*\\$1
  638. .FS
  639. * \s-2UNIX\s0 is a trademark of Bell Laboratories.
  640. .FE
  641. .nr GA 1\}
  642. ..
  643. .de US
  644. the
  645. .UX
  646. operating system
  647. ..
  648. .so /sprite/lib/ditroff/tmac.sddisp
  649. .de KF
  650. .if \\n(KK=0 .GB
  651. .nr KK 1
  652. ..
  653. .tr |\(or
  654. .de UL
  655. .if n .ul
  656. \&\\$3\f3\\$1\fP\&\\$2
  657. ..
  658. .de UC
  659. \&\\$3\s-2\\$1\\s+2\&\\$2
  660. ..
  661. .de Uc \" cap-small cap, not used
  662. .\" \&\\$4\\$1\s-2\\$2\s+2\&\\$3
  663. \&\\$4\s-2\\$1\\$2\s+2\&\\$3
  664. ..
  665. .de IT
  666. .if n .ul
  667. \&\\$3\f2\\$1\fP\|\&\\$2
  668. ..
  669. .de UP
  670. \&\\$3\\f3\s-2\\$1\s+2\f1\&\\$2
  671. ..
  672. .de P1
  673. .nr PC \\n(.i
  674. .nf
  675. .di PA
  676. .lg 0
  677. .if n .ls 1
  678. .if n .ta 5 10 15 20 25 30 35 40 45 50 55 60
  679. .if t .ta .4i .8i 1.2i 1.6i 2i 2.4i 2.8i 3.2i 3.6i 4i 4.4i 4.8i 5.2i 5.6i
  680. .if t .tr -\-|\(bv'\(fm*\(**
  681. .if t .tr ~\(ap
  682. .tr _\(ru
  683. .if t .ss 20
  684. .ft 3
  685. .lg 0
  686. .ps 9
  687. .vs 12p
  688. .in 0
  689. ..
  690. .de P2
  691. .if t .ss 12
  692. .ft R
  693. .if n .ls 2
  694. .tr --''^^!!**
  695. .lg
  696. .in \\n(PCu
  697. .di
  698. .if \\n(dl>(\\n(.l-\\n(.i) .tm Page \\n% program fragment too wide
  699. .nr PB \\n(.l-\\n(dl-\\n(.i-2n
  700. .if \\n(PB<0 .nr PB 0
  701. .nr PB \\n(PB/2
  702. .    \" indent; don't center
  703. .nr PB .5i
  704. .in +\\n(PBu
  705. .nf
  706. .SP .5v
  707. .PA
  708. .SP .5v
  709. .in -\\n(PBu
  710. .fi
  711. .ps \\n(PS
  712. .vs \\n(VSp
  713. ..
  714. .de X
  715. .ul
  716. \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  717. ..
  718. .de Y
  719. .ti \\n(.yu*2u
  720. .ul
  721. \&\\$1 \\$2 \\$3 \\$4 \\$5 \\$6 \\$7 \\$8 \\$9
  722. ..
  723. .de QH
  724. .NH 2
  725. .ti 0
  726. .ft 2
  727. ..
  728. .de PN
  729. .nr NQ \\n(.f
  730. \&\\$3\\f3\\$1\f\\n(NQ\\$2
  731. ..
  732. .de ][
  733. .\".if \\n(.d>0 .if \\n(.d<1.5v .tm Top widow page \\n%
  734. .if \\$1>5 .tm Bad arg to ][
  735. .Fx \\*([D
  736. .[\\$1
  737. ..
  738. .if n .ds [. [
  739. .if t .ds [. \s-2\v'-.4m'\f1
  740. .if n .ds .] ]
  741. .if t .ds .] \v'.4m'\s+2\fP
  742. .if n .ds [o ""
  743. .if n .ds [c ""
  744. .if t .ds [o `
  745. .if t .ds [c '
  746. .de [5 \" tm style
  747. .QP "\\*([F.\0"
  748. \\*([A,
  749. unpublished work
  750. (\\*([D).
  751. .in 0
  752. .RT
  753. ..
  754. .de [0 \" other
  755. .QP "\\*([F.\0"
  756. .if !"\\*([A"" \\*([A,
  757. .if !"\\*([T"" \\f2\\*([T\\f1\c
  758. .if !"\\*([T"" .if !"\\*([O"" ,\ 
  759. .ie !"\\*([O"" \\*([O
  760. .el .if !"\\*([T"" \&.
  761. .if !"\\*([D"" \\*([D.
  762. .in 0
  763. .RT
  764. ..
  765. .de [1 \" journal article
  766. .if "\\*([Q"This issue" .rm [V [N [D
  767. .if !"\\*([R"" .rm [C
  768. .QP "\\*([F.\0"
  769. .if !"\\*([A"" \\*([A,
  770. .if !"\\*([T"" \\*([o\\*([T,\\*([c
  771. .ft 2
  772. .if "\\*([V"" .if !"\\*([C"" \\*([J,
  773. .if "\\*([V"" .if "\\*([C"" .if !"\\*([Q"This issue"  \\*([J
  774. .if "\\*([V"" .if "\\*([C"" .if "\\*([Q"This issue"  \\*([J,
  775. .if !"\\*([V"" \\*([J,
  776. .ft 1
  777. .if !"\\*([V"" \{.if n Vol.\&
  778. \\f3\\*([V\\f1,\}
  779. .if !"\\*([N"" \\*([N,
  780. .if !"\\*([C"" \\*([C
  781. .if !"\\*([P"" \\*([P
  782. .if !"\\*([D"" (\\*([D).
  783. .in 0
  784. .RT
  785. ..
  786. .de [2 \" book
  787. .QP "\\*([F.\0"
  788. .if !"\\*([A"" \\*([A,
  789. \\f2\\*([T,\\f1
  790. \\*([I,
  791. .if !"\\*([D"" \\*([D\c
  792. .if !"\\*([Q"NP" \&.
  793. .if !"\\*([G"" Gov't. ordering no. \\*([G
  794. .if !"\\*([O"" \\*([O
  795. .in 0
  796. .RT
  797. ..
  798. .de [4 \" report
  799. .if "\\*([I"Bell Laboratories" .rm [C
  800. .QP "\\*([F.\0"
  801. \\*([A, \\*([o\\*([T,\\*([c
  802. \\*([R\c
  803. .if !"\\*([G"" \& (\\*([G)\c
  804. .if !"\\*([I"" ,  \\*([I\c
  805. .if !"\\*([C"" ,  \\*([C\c
  806. .if !"\\*([D"" \\0(\\*([D)\c
  807. .if !"\\*([Q"NP" \&.
  808. .if !"\\*([O"" \\*([O
  809. .in 0
  810. .RT
  811. ..
  812. .de [3 \" article in book
  813. .QP "\\*([F.\0"
  814. \\*([A, \\*([o\\*([T,\\*([c
  815. in \\f2\\*([B\\f1\c
  816. .if !"\\*([E"" , ed. \\*([E\c
  817. .if "\\*([E"" ,\c
  818. .if !"\\*([I"" \ \\*([I,\c
  819. .if !"\\*([P"" \ \\*([P
  820. .if !"\\*([D"" \ (\\*([D).
  821. .in 0
  822. .RT
  823. ..
  824. .de ]<
  825. .SP 2v
  826. .ti 0
  827. .nf
  828. .ps -1
  829. .ce
  830. REFERENCES
  831. .ps
  832. .nr PS 8
  833. .nr VS 8
  834. .nr PI \w'\s8\0\0.\0'
  835. .sp .5v
  836. .fi
  837. .LP
  838. .rn RP IP
  839. ..
  840. .de Fx    \" fix date to discard all but year
  841. .ds [D \\$\\n(.$
  842. ..
  843. .de ]>
  844. .sp
  845. ..
  846. .de ]-
  847. .rm [V [P [A [T [N [C [B [O [R [I [E [Q [D [Q
  848. ..
  849. .de QP
  850. .LP
  851. .in \\n(PIu
  852. .ta \\n(PIuR
  853. .ti 0
  854. \t\\$1\\c
  855. ..
  856. .de LB
  857. .RT
  858. .nr ZB .4i
  859. .if !"\\$2"" .nr ZB \\$2n
  860. .in \\n(ZJu
  861. .ti -\\n(ZBu
  862. .ta \\n(ZBu
  863. \\$1\t\\c
  864. ..
  865. .de RS
  866. .nr ZJ +.3i
  867. ..
  868. .de RE
  869. .nr ZJ -.3i
  870. ..
  871. .de RP
  872. .ce 0
  873. .if \\n(FR=0 .ps \\n(PS
  874. .nr FR 1
  875. .in .4i
  876. .ta .2i
  877. .if \\n(.$>0 .ti 0-.1i-\h'\w'\\$1'u'
  878. .if \\n(.$>0 \\$1\h'|.4i'\c
  879. ..
  880. .ds s \s-2
  881. .de MH
  882. Bell Laboratories, Murray Hill, New Jersey 07974, U. S. A
  883. ..
  884. .de HO
  885. Bell Laboratories, Holmdel, New Jersey 07733, U. S. A.
  886. ..
  887. .de WH
  888. Bell Laboratories, Whippany, New Jersey 07981, U. S. A.
  889. ..
  890. .ds n \s+2
  891. .so /sprite/lib/ditroff/tmac.sdrefs
  892. @
  893.  
  894.  
  895. 1.1
  896. log
  897. @Initial revision
  898. @
  899. text
  900. @d620 1
  901. a620 1
  902. .so /usr/local/lib/ditmac/tmac.sddisp
  903. d863 1
  904. a863 1
  905. .so /usr/local/lib/ditmac/tmac.sdrefs
  906. @
  907.